0 POKE55,255:POKE56,122
1 POKE53280,.:POKE53281,.:POKE650,128
2 GOTO12
3 Z$=""
4 DEFFNHB(X)=INT(X/256):DEFFNLB(X)=X-256*FNHB(X):SYS58692:POKE53265,139
5 PRINT"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
6 PRINT"[221]      CRYPTON SOFTWARE PRESENT 91     [221]";
7 PRINT"[221]                                      [221]";
8 PRINT"[221] SAVE-GAME CHEAT FOR RINGS OF MEDUSA! [221]";
9 PRINT"[221]                                      [221]";
10 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]";
11 PRINT:PRINT"     PROGRAMM BY PETER STEIN / 1991":RETURN
12 GOSUB3:PRINT"[155]"SPC(6)"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
13 PRINTSPC(6)"[221]SPIEL STAND DISK EINLEGEN [221]"SPC(12)"[221]"SPC(26)"[221]"
14 PRINTSPC(6)"[221]  UND DEN ENTSPRECHENDEN  [221]"SPC(12)"[221]"SPC(26)"[221]"
15 PRINTSPC(6)"[221]BUCHSTABEN (A- Z) EINGEBEN[221]"
16 PRINTTAB(6)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]":POKE53265,155
17 POKE198,.:WAIT198,1:GETA$:IFA$<"A"ORA$>"Z"THEN17
18 POKE53265,139:L$="ROM.SAVE("+A$+")":OPEN2,8,2,L$+",P,R"
19 OPEN15,8,15:GET#15,A:GOSUB188:CLOSE15
20 IFA=0THEN23
21 PRINT:PRINT:PRINT:PRINT"   DRUECKE EINE TASTE [146] ";:POKE204,.:POKE198,.
22 POKE53265,155:WAIT198,1:POKE198,.:POKE204,1:CLR:RUN
23 SYS57812L$,8,1:POKE780,.:SYS65493
24 OPEN15,8,15:GET#15,A:GOSUB188:CLOSE15:POKE53265,155
25 PRINT:PRINT:PRINT:PRINT"   DRUECKE EINE TASTE [146] ";:POKE204,.:POKE198,.
26 POKE53265,155:WAIT198,1:POKE198,.:POKE204,1
27 CLR:GOSUB3:PRINT"[154]"
28 H$(.)=LEFT$(Z$,10)+" WARENHAUS       "
29 H$(1)=LEFT$(Z$,11)+" HAFEN           "
30 H$(2)=LEFT$(Z$,12)+" ARMEE TRAINIEREN"
31 H$(3)=LEFT$(Z$,13)+" ANZAHL DER RINGE"
32 H$(4)=LEFT$(Z$,14)+" BANK            "
33 H$(5)=LEFT$(Z$,15)+" STALL           "
34 H$(6)=LEFT$(Z$,16)+" DIRECTORY       "
35 H$(7)=LEFT$(Z$,17)+" SAVE GAME       ":A=.
36 FORI=.TO7:PRINT""SPC(11)H$(I):NEXT:PRINT""SPC(11)H$(.):POKE53265,155
37 B=A:GETA$:IFA$=""THEN37
38 IFA$<>""THENIFA$<>"[145]"THENIFA$<>CHR$(13)THEN37
39 IFA$="[145]"ANDA=.THEN37
40 IFA$=""ANDA=7THEN37
41 IFA$="[145]"THENA=A-1:IFA=-1THENA=.
42 IFA$=""THENA=A+1:IFA=8THENA=7
43 IFA$=CHR$(13)THENPOKE825,A+1:GOTO45
44 PRINT"[146]"SPC(11)H$(B)""SPC(11)H$(A):GOTO37
45 CLR:ONPEEK(825)GOTO46,128,144,120,104,164,210,171
46 GOSUB3:SYS58692:PRINT"[154]"
47 PRINT:PRINT:P=32820
48 WO=PEEK(P)+256*PEEK(P+1)
49 BI=PEEK(P+2)+256*PEEK(P+3)
50 WE=PEEK(P+4)+256*PEEK(P+5)
51 TE=PEEK(P+6)+256*PEEK(P+7)
52 KA=PEEK(P+8)+256*PEEK(P+9)
53 TA=PEEK(P+10)+256*PEEK(P+11)
54 LI=PEEK(P+12)+256*PEEK(P+13)
55 FE=PEEK(P+14)+256*PEEK(P+15)
56 LD=PEEK(P+16)+256*PEEK(P+17)
57 WZ=PEEK(P+18)+256*PEEK(P+19)
58 MA=PEEK(P+20)+256*PEEK(P+21)
59 HW=60000-WO-BI-WE-TE-KA-TA-LI-FE-LD-WZ-MA
60 PRINT" A) WOLLE     : ";WO
61 PRINT" B) BIER      : ";BI
62 PRINT" C) WEIN      : ";WE
63 PRINT" D) TEE       : ";TE
64 PRINT" E) KAFFEE    : ";KA
65 PRINT" F) TABACK    : ";TA
66 PRINT" G) LEINEN    : ";LI
67 PRINT" H) FELLE     : ";FE
68 PRINT" I) LEDER     : ";LD
69 PRINT" J) WERKZEUG  : ";WZ
70 PRINT" K) MASCHINEN : ";MA
71 PRINT"[153] X) MENUE
72 [153]""[166]26);[200](Z$,5)"BITTE BUCH-"
73 [153]""[166]26);[200](Z$,6)"STABEN (A-K)"
74 [153]""[166]26);[200](Z$,7)"EINGEBEN UND"
75 [153]""[166]26);[200](Z$,8)"DATEN AEN-"
76 [153]""[166]26);[200](Z$,9)"DERN :    "
77 [153]""[166]26);[200](Z$,11)"F1 = >    "
78 [153]""[166]26);[200](Z$,12)"F3 = <    "
79 [153]""[166]26);[200](Z$,13)"F5 = >>   "
80 [153]""[166]26);[200](Z$,14)"F7 = <<   "
81 [153]""[166]26);[200](Z$,15)"F2 = >>>  "
82 [153]""[166]26);[200](Z$,16)"F4 = <<<  "
83 [153]""[166]26);[200](Z$,17)"F6 = >>>> "
84 [153]""[166]26);[200](Z$,18)"F8 = <<<< CONT"
85 [151]53265,155
86 [161]A$:[139]A$[179]"A"[176]A$[177]"K"[175]A$[179][177]"X"[167]86
87 [139]A$[178]"X"[167]27
88 S[178]17:A[178][198](A$)[171]64:Z[178]2[172]A[171]2
89 [145]A[137]91,92,93,94,95,96,97,98,99,100,101
90 [137]86
91 X[178]WO:HW[178]HW[170]X:[141]196:W[178]0:[137]102
92 X[178]BI:HW[178]HW[170]X:[141]196:W[178]2:[137]102
93 X[178]WE:HW[178]HW[170]X:[141]196:W[178]4:[137]102
94 X[178]TE:HW[178]HW[170]X:[141]196:W[178]6:[137]102
95 X[178]KA:HW[178]HW[170]X:[141]196:W[178]8:[137]102
96 X[178]TA:HW[178]HW[170]X:[141]196:W[178]10:[137]102
97 X[178]LI:HW[178]HW[170]X:[141]196:W[178]12:[137]102
98 X[178]FE:HW[178]HW[170]X:[141]196:W[178]14:[137]102
99 X[178]LD:HW[178]HW[170]X:[141]196:W[178]16:[137]102
100 X[178]WZ:HW[178]HW[170]X:[141]196:W[178]18:[137]102
101 X[178]MA:HW[178]HW[170]X:[141]196:W[178]20
102 HB[178][165]HB(X):LB[178][165]LB(X):P[178]32820
103 [151]P[170]W,LB:[151]P[170]1[170]W,HB:[137]46
104 [141]3:[153]:[153]:[153][166]11)"CONTGELDBETRAG AENDERN":[153]:[153]
105 X[178]16777216[172][194](32795)[170]65536[172][194](32796)[170]256[172][194](32797)[170][194](32798)
106 A$[178][201]("00000000"[170][202]([196](X),2),9)
107 GB$[178][200](A$,3)[170]"."[170][202](A$,4,3)[170]"."[170][201](A$,3)
108 [153]"  BARKAPITAL  : ";GB$:[151]53265,155
109 [153]:[153]:[153]:[153]"  BARKAPITAL AENDERN (J/N) WAIT ";:[151]204,.
110 [161]A$:[139]A$[178]"N"[167][151]204,1:[137]27
111 [139]A$[179][177]"J"[167]110
112 [153]:[151]204,1
113 [151]19,64:[133]"CONTON  NEUER STAND : LIST999999999        CMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMD";X$
114 X[178][197](X$):[151]53265,155
115 [139]X[177]999999999[167][153]:[137]113
116 X(.)[178][181](X[173]16777216):X[178]X[171]16777216[172]X(.)
117 X(1)[178][181](X[173]65536):X[178]X[171]65536[172]X(1)
118 X(2)[178][181](X[173]256):X(3)[178]X[171]256[172]X(2)
119 [129]I[178].[164]3:[151]32795[170]I,X(I):[130]:[137]104
120 [141]3:[153]:[153]:[153][166]7)"CONTANZAHL DER RINGE AENDERN":[153]:[153]
121 X[178][194](32812):MW[178]X
122 [153][166]7)"CONTANZAHL DER RINGE :LIST";X
123 [153]:[153]:[153]:[153][166]8)"PRINTF1 = >"
124 [153]:[153][166]8)"F3 = <LIST"
125 [153]:[153][166]7)"<CR>= MENUELIST"
126 S[178]26:Z[178]13:HW[178]5:[151]53265,155:[141]196:
127 [151]32812,X:[137]27
128 [141]3:[153]:P[178]32849:FR[178][194](P):GS[178][194](P[170]1):TB[178][194](P[170]2):KS[178][194](P[170]3)
129 HW[178]30[171]FR[171]GS[171]TB[171]KS
130 [153][166]7)"CONTDU BESITZT :"
131 [153][166]7)"1. FRACHTER     :"FR
132 [153][166]7)"2. GROSSSCHIFFE :"GS
133 [153][166]7)"3. TRUPPENBOOTE :"TB
134 [153][166]7)"4. KAMPFSCHIFFE :"KS
135 [153][166]7)"PRINT   X = MENUE"
136 [153][166]4)"1-4 = WAEHLEN / F1 = > / F2 = <":[151]53265,155
137 [161]A$:[139]A$[179]"1"[176]A$[177]"4"[175]A$[179][177]"X"[167]137
138 [139]A$[178]"X"[167]27
139 S[178]25:[145][197](A$)[137]140,141,142,143
140 Z[178]11:X[178]FR:HW[178]HW[170]FR:[141]196:[151]P,X:[137]128
141 Z[178]13:X[178]GS:HW[178]HW[170]GS:[141]196:[151]P[170]1,X:[137]128
142 Z[178]15:X[178]TB:HW[178]HW[170]TB:[141]196:[151]P[170]2,X:[137]128
143 Z[178]17:X[178]KS:HW[178]HW[170]KS:[141]196:[151]P[170]3,X:[137]128
144 [141]3:[153]:[153][166]3)"CONTWELCHE WERTE MOECHTEST DU AENDERN ?":[153]
145 [153][166]12)"1. MORAL"
146 [153][166]12)"2. ERFAHRUNG"
147 [153][166]12)"X= MENUE"
148 [153][166]3)"PRINT BITTE WAEHLEN (1-2 ODER X) WAIT ";:[151]204,.
149 [151]53265,155
150 [161]A$:[139]A$[179]"1"[176]A$[177]"2"[175]A$[179][177]"X"[167]150
151 [151]204,1:[139]A$[178]"X"[167]27
152 [145][197](A$)[137]153,154
153 [129]I[178].[164]6:P(I)[178]32859[170]13[172]I:[130]:[137]155
154 [129]I[178].[164]6:P(I)[178]32858[170]13[172]I:[130]
155 [141]3:[140]:[151]646,14
156 [129]I[178].[164]6:X(I)[178][194](P(I))
157 [135]A$:[153][166]3)A$;X(I):[130]
158 [153][166]3)"PRINTX = MENUE
159 POKE53265,155
160 GETA$:IFA$<"1"ORA$>"7"ANDA$<>"X"THEN160
161 A=VAL(A$):IFA$="X"THEN144
162 Z=9+2*(A-1):S=23:HW=200
163 X=X(A-1):GOSUB196:POKEP(A-1),X:POKE53265,155:GOTO155
164 GOSUB3
165 PRINTSPC(7)"[154]ANZAHL DER WAGEN AENDERN"
166 PRINTSPC(7)"ANZAHL DER WAGEN :[153]";:
167 AW=PEEK(32818)+256*PEEK(32819):PRINTAW:POKE53265,155:MW=1
168 Z=14:S=26:X=AW:HW=750:GOSUB196
169 HB=FNHB(X):LB=FNLB(X)
170 POKE32818,LB:POKE32819,HB:GOTO27
171 POKE53265,139:PRINT"[155]"SPC(6)"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
172 PRINTSPC(6)"[221]    SAVE DISK EINLEGEN    [221]"
173 PRINTSPC(6)"[221]                          [221]"
174 PRINTSPC(6)"[221]  UND DEN ENTSPRECHENDEN  [221]"
175 PRINTSPC(6)"[221]                          [221]"
176 PRINTSPC(6)"[221]BUCHSTABEN (A- Z) EINGEBEN[221]"
177 PRINTSPC(6)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]":POKE53265,155
178 POKE198,.:WAIT198,1:GETA$:IFA$<"A"ORA$>"Z"THEN178
179 POKE53265,139:L$="ROM.SAVE("+A$+")"
180 OPEN15,8,15,"I":PRINT#15,"S:"+L$:CLOSE15
181 SYS57812L$,8
182 POKE174,0:POKE175,159
183 POKE193,0:POKE194,128
184 SYS62957
185 OPEN15,8,15:GET#15,A:GOSUB188:PRINT#15,"I":CLOSE15
186 PRINT:PRINT:PRINT"  DRUECKE EINE TASTE [146] ";:POKE204,.:POKE53265,155
187 POKE198,.:WAIT198,1:POKE198,.:POKE204,1:RUN
188 PRINT" [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174] ";
189 PRINT" [221] STATUS :                           [221] ";
190 PRINT" [221]                                    [221] ";
191 PRINT" [221]                                    [221] ";
192 PRINT" [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189] "
193 PRINT"[145][145][145]"A"[157]";
194 GET#15,A$:IFA$<>CHR$(13)THENPRINTA$;:GOTO194
195 RETURN
196 ZE$=LEFT$(Z$,Z)
197 X$=STR$(X):PRINT"";SPC(S);ZE$;"";RIGHT$(X$,LEN(X$)-1);"[146]    "
198 GETA$:IFA$=""THEN198
199 IFA$=CHR$(13)THEN209
200 IFA$="[133]"THENX=X+1:IFX>HWTHENX=HW
201 IFA$="[134]"THENX=X-1:IFX<MWTHENX=MW
202 IFA$="[135]"THENX=X+100:IFX>HWTHENX=HW
203 IFA$="[136]"THENX=X-100:IFX<MWTHENX=MW
204 IFA$="[137]"THENX=X+1000:IFX>HWTHENX=HW
205 IFA$="[138]"THENX=X-1000:IFX<MWTHENX=MW
206 IFA$="[139]"THENX=X+10000:IFX>HWTHENX=HW
207 IFA$="[140]"THENX=X-10000:IFX<MWTHENX=MW
208 GOTO197
209 X$=STR$(X):PRINT"";SPC(S);ZE$;"[146]";RIGHT$(X$,LEN(X$)-1);"    ":RETURN
210 PRINT"[153][147] 0 ";:OPEN1,8,0,"$":POKE781,1:SYS65478:GETA$,A$,A$,A$
211 FORI=1TO7:GETA$,B$,C$,D$:PRINTA$B$C$D$;:NEXT:PRINT:GETA$,A$,A$,B$
212 IFSTTHEN214
213 PRINTASC(A$+CHR$(0))+256*ASC(B$+CHR$(0));:GOTO211
214 SYS65484:CLOSE1:OPEN15,8,15,"I":PRINT:PRINT"";
215 GET#15,A$:IFA$<>CHR$(13)THENPRINTA$;:GOTO215
216 CLOSE15:POKE198,.:WAIT198,1:POKE198,.:GOTO27
217 DATA"1. INFANTERIE     :"
218 DATA"2. KAVALLERIE     :"
219 DATA"3. ARTILLERIE     :"
220 DATA"4. AUFKLAERER     :"
221 DATA"5. DRACHENREITER  :"
222 DATA"6. ZAUBERER       :"
223 DATA"7. BOGENSCHUETZEN :"